home *** CD-ROM | disk | FTP | other *** search
/ Magazyn Exec 3 / CD_Magazyn_EXEC_nr_3.iso / Gry / Tales of Tamar Demo.lha / talesdemo1 / rexx / AmiTCPOffline.rexx next >
OS/2 REXX Batch file  |  1999-11-16  |  1KB  |  26 lines
  1. /******************************************************************************************************/
  2. /* Online-Script für AmiTCP mit Arexx                                                                */
  3. /*     © by Martin Wolf / Eternity Hard & Software                                                  */
  4. /*                                                      */
  5. /*      First Bit set: 22.10.1999                                                                     */
  6. /*      Last Bit set : 22.10.1999                                                                     */
  7. /******************************************************************************************************/
  8.  
  9. OPTIONS RESULTS
  10.  
  11. ADDRESS COMMAND
  12.     counter_MW=0
  13.     DO UNTIL SHOW('P','AMITCP')            /* Auf AmiTCP warten */
  14.       SIGNAL OFF ERROR
  15.       'WaitForPort AMITCP'
  16.       SIGNAL ON ERROR
  17.       IF counter_MW=3 THEN EXIT    
  18.       counter_MW=counter_MW+1
  19.     END
  20.     'SetEnv ToTDemo1:Data/TOT_ONLINE 0'
  21.         miamiport = AMITCP                /* ist auf jeden Fall der aktive Port */
  22.  
  23. ADDRESS (miamiport)
  24.     DISCONNECT PPP
  25.     EXIT
  26.